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, MULTIPLY SUBROUTINE lac one-factor 

jda mpy or l-mpy 
lac other-factor 

if mpy is called the ansv/er returned is a sign and 34 bits and a sign 
in the AC-IO. 

if i-mpy is called the answer is a sign and 17 bits in the AC - the 
bits are the low 17 of the product 



ext i-mpy 



ext mpy 



org I-mpy 

loc 

dap i-mpy & 2 

xct 

jdo mpy 

idx i-mpy & 2 

rir si 

rcr s9 

rcr s9 

jmp * i-mpy & 2 

loc, temporary storage 



dap mpy & 7 

lac mpy 

spa 

cma 

rcr s9 

rcr s9 

xct 

spa 

cma 

dac mpy - 1 

cla 

mus mpy - 1 

mus mpy - 1 

mus mpy - 1 



/yC y-^^y^^y 
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mus mpy - 1 
mus mpy - 1 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 
mus mpy - 



dac mpy - 1 

xct mpy & 7 

xor mpy 

sma 

jmp mpy & 52 

lac mpy - 1 

cma 

rcr s9 

rcr s9 

cma 

rcr s9 

rcr s9 

dac mpy - 1 

idx mpy & 7 

lac mpy - 1 

jmp * mpy & 7 

imp end 
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